home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / r-z / sbase4pro / trading / stkrne.sbp < prev    next >
Text File  |  1995-07-10  |  1KB  |  56 lines
  1. SBP
  2.  ÿ½   STKRNE
  3.  ÿ½   Client Telephone List
  4.  ÿ½   Last updated Jan 21, 90
  5.  
  6.  ÿ³ÿ_ÿwrerror
  7.  hd1$ÿ"Client Telephone List at "ÿÿ(ÿQ,"mmm dd,yy")
  8.  hd12$ÿ"Ref: STKRNE"
  9.  
  10. m1: 
  11.  ÿÁ
  12.  ÿ}ÿÁ
  13.  ÿ{
  14.  ÿ{@2;"Number of records:";@21;&15ÿ(ÿX,"9999.")
  15.  ÿ’ÿÁ
  16.  
  17.  ÿŸ
  18.  ÿ{@1;hd1$;@66;hd12$
  19.  ÿ{
  20.  ÿ{@2;"Client                    Location                Telephone           Hours"
  21.  ÿ{@2;"------------------------- ----------------------- ------------------- -----"
  22.  ÿ’ÿŸ
  23.  
  24.  ÿÉ@2;&26Client.CLIENTS;&23Location.CLIENTS;@52;"(";&3Dialcode.COUNTRY;")";&16Telephone.CLIENTS;
  25.  &5GMT Zone_Min.COUNTRY
  26.  ÿÐCountry.CLIENTSÿName.COUNTRY
  27.  
  28. m2: 
  29.  ÿ¡p$ÿ"d"ÿp
  30. ÿÊÿËss14$
  31. ÿÏÿ¥ÿÿß
  32.  ÿ’ÿ¡
  33.  
  34. repeat: 
  35.  ÿÂms3$,"",135,a%
  36.  ÿ¡a%ÿ0ÿpÿwrexit
  37.  ÿ¡p$ÿ"p"ÿpÿ¹;
  38.  ÿwm1
  39.  
  40. rexit: 
  41.  ÿ„"menu"
  42.  
  43. rerror:ÿ½ On error
  44.  res%ÿ0
  45.  ÿ¡ÿ&ÿ11ÿp
  46. ÿÂms21$,ms22$,130,a%:ÿ¡a%ÿ1ÿpres%ÿ1
  47.  ÿ^ÿ¡ÿ&ÿ27ÿp
  48. ÿÂms11$,ms12$,100,a%:res%ÿ2
  49.  ÿ^
  50. ÿÂÿ((ÿ&),"",113,a%:res%ÿ1
  51.  ÿ’ÿ¡
  52.  ÿ¡res%ÿ1ÿpÿyrepeat 
  53.  ÿ¡res%ÿ2ÿpÿyrexit
  54.  ÿ
  55.  
  56.